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| 1e-8ep-19 4 19:35:58 BASRTL.SRC JBASNUM1 .832;1 . 
} 
tie 0001 © MODULE BASSNUM1 ( ! Routines to do BASIC NU mis function 
13 ¢ BR6 IDENT = °1-008' ! module BASNUM! B35 Edit LL 1008 

; 000 )= 
3 4 0004 1 BEGIN 

: 5 0005 1! 

3 ° Bons 1 SRR RARER RARER RARER REET AEE AERA AEE RERHARAEEREREEE 
3 07 1! * 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
; 19 paiy ' 1* ALL RIGHTS RESERVED. * 
: .* * 
; \¢ Bot¢ 1 !* THrs SOFTWARE IS Ee UTA THE ge . LICENSE AND MAY BE ‘JSED AND COPIED * 
Bee 0015 1 !* ONLY IN ACCORDANCE RMS OF at Lic cNSE Ma WITH THE * 
7 0014 1 !* INCL USION OF THE E COPYRIGHT. NOTICE. THIS ANY OTHER * 
: 99 0015 1 !* COPIES THEREOF har NOT BE PROVIDED OR OTHERWISE OMADE RAVATLABLE TO ANY * 
5 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i eote : .* TRANSFERRED. * 
g '* *® 
: 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $3 bos) : ° CORPORATION. * 
2S it ® 
; @ $093 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
ee +, 0025 1 !« * 
; & 0026 1 !* * 
: a7 0027 1 Seeeereeaeeeee ee eeee eee eee RARE AAA ETTATATA RATATAT AAA RARER EKER A eee A Eee 
; «2 0028 1! 

; 6 Og? 0029 1 

; 0030 1 

aoe) 0031 1 !++ 

ee at) 1 ! FACILITY: BASIC Support Library 

3 33 0033 1! 

H 34 Bee 1 ! ABSTRACT: 

;. 3 0035 1! 

; = 0036 1! This module has entry points for long, floating, double, 

we | 0037 1! q floating, h floating and packed decimal. 

; 3B 0038 1! he double routine checks for a BASIC frame and picks 

eee, 0039 1! up the scale factor. ‘en Be pe routines convert a number 

; 0040 1! to a numeric string with »o leading or trailing spaces and no E format 
: rt seg: : by a CALL to the correct BASS conversion routine. 

; rh Booz : ENVIRONMENT: User mode, AST Level or not or mixed 

s . §S 0045 1 ! AUTHOR: R. Will, CREATION DATE: 10-Mar-79 

: 0046 1! 

ca ae 0047 1 ! MODIFIED BY: 

; 648 0048 1! 

; 9 0049 1! R«. will, se Bl VERSION 01 

; & 0050 1! 01 - orig 

;.- 3 0051 1 ! 1-002 - Change y rots names for string Linkoges | te TRS. JBS 04-JUN-1979 
; 26 036 1! {-003 - ASLNK for BASIC scaling Linkages. 6-JUN-79 

wee 0053 1 ! 1-004 - change to use new conyers ten routines. RW 6-JUL-79 

5. 0054 1 ! 1-005 = Add longword entry point. RW 10-Jul-7 

re) 0055 1 ! 1-006 - String cleanup, don't use STR$ macros. Ry sOn9c to? 

2° 9036 1 ! 1-007 = Add entry points for g & h floating. PLL 35-Sep-81 

5 OF 0057 1 ! 1-008 - Add entry point for packed decimal. PLL 19-Jan-82 
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4 
4 BASRTL.SRC JBASNUM1 .B32; 1 2) 


SWITCHES: 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


; LINKAGES: NONE 


. TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSNUM1_F : NOVALUE, ! Find NUM1$S of a floating value 
SSNUM1_D : NOVALUE, ! Find NUM1$ of a double value 
BASSNUM1_L : NOVALUE, ! Find NUM1$ of a Longword value 
SSNUM1_G : NOVALUE, ! Find NUMI$ of ag float value 
BASSNUM1_H : NOVALUE, ! Find NUM1$ of an h float value 
SSNUM1_P : NOVALUE; ! Find NUM1$ of a decimal value 


INCLUDE FILES: 


REQUIRE 'RTLIN:RTLPSECT'; 
REQUIRE *RTLIN:BASLNK': 
REQUIRE "RTLIN:BASFRAME'; 


: MACROS: NONE 


Declare PSECTs code 
Linkage for BASIC scaling routines 
Define offsets in a BASIC frame 


BUILTIN 
CVTLD; 


convert longword to double precision 


EQUATED SYMBOLS: 


Lsree , 
strip_spaces = 
tloating_dec = 32; 


flag to strip spaces } , 
flag to use floating decimal point 


PSECT DECLARATIONS 


DECLARE_PSECTS (BAS); 
' 


; OWN STORAGE: NONE 


i EXTERNAL REFERENCES: 
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19-808- 1382 90:33:83 BASRTL. RCIBASNUMI .B3251 ° (33 
GLOBAL ROUTINE BASSNUMI_F ( ' convert floating to string 
STRING, ! Address of destination descriptor 
VALUE) : ! Create string with this value 


NOVALUE = 


‘oe 

! FUNCTIONAL DESCRIPTION: 

This routine takes a floating number and formats it 

with no leading or trailing spaces and no E format, 6 significant 
digits, and gives that value to the destination string. 


i FORMAL PARAMETERS: 
| 
( 


STRING. wt.dx pointer to input string descriptor 
VALUE .rf.v value of a floating number 


i IMPLICIT INPUTS: 
NONE 
i IMPLICIT OUTPUTS: 
NONE 


| ROUTINE VALUE: 
COMPLETION CODES: 


NONE 

i SIDE EFFECTS: 

This routine calls the conversion routine and so may signal any of its 
errors or have ony of its side effects. In particular, the conversion 


routine calls STR$ routines and so may allocate or deal locate 
dynamic string space and write lock a string for a short time. 


BEGIN 
STRING : REF BLOCK (8,BYTE); 


OCAL 
STR_LENGTH : WORD; 
pence seh 
strip spaces * floating_dec, 
cr 
0,6,0,03); 


cvt returns str lengtht 


conyert this value to string 
don't specify integer digits 
don't specify fraction digits 
set flags 

return bytes needed for str 
return string 


ND; ‘End of BASSNUM1_F 
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TITLE BASSNUM1 
"IDENT \12008\ 
-EXTRN BASSCVT_OUT_F_F 
-EXTRN BASS$CVT~OUT"D-F 
-EXTRN BASSCVT~OUT-G-F 
-EXTRN BASSCVT-OUT-H-F 


-EXTRN BASSCVT_OUT_P_F 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 


000 44 -ENTRY BASSNUMI_F, Save nothing : 

SE 04 C2 0000 SUBL2 #4, SP : 

04 AC bb 00C0 PUSHL STRING : 

04 AE 9F 00008 PUSHAB STR_LENGTH : 

a: ee : 

08 AC 9F O000F PUSHAB VALUE : 

000000006 00 06 FB 90012 CALLS #6, BASSCVT_OUT_F_F : 
04 0001 RET : 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0000 


Gis iscsi sicap rteesedeacan cuatenasgieedadsamite aces caaleade 


—_----—— ee 


NONE 
SIDE EFFECTS: 


This routine calls the conversion routine and so may signal any of its 
errors or have any of its side effects. In particular, the conversion 
routine calls STRS routines and so may allocate or deallocate 
dynamic string space and write lock a string for a short time. 


H 15 
ASSNUM1 16-Sep-1984 00:51: AX-11 Bliss-32 v4.0-742 Page 7 
Tos 18-808- 1382 99:33:83 YBASRTL SRC IBASNUMI 832.1 . (4) 
: 3 GLOBAL ROUTINE BASSNUM1_D ( ' convert double to string 
5 4 STRING, ! Address of destination descriptor 
5 VALUE} ' Ist longword of double value to put in 
$ VALUE25 : ! 2nd Longwrd of double value for string 
Hy NOVALUE = 
90 5 3 lee 
33 209 FUNCTIONAL DESCRIPTION: 
38 206 i This routine takes a double number and formats it without 
94 Beez : leading or trailing spaces, and no E format, 16 significant digits, 
95 5 and gives that value to the destination string. 
96 565 ! Note that this routine violates the calling standard by accepting 
44 8208 } and passing double floating numbers by value 
99 0968 FORMAL PARAMETERS: 
01 0570 1! STRING. wt.dx pointer to input string descriptor 
4 0571 ! VALUE .rd.v value of a double number 
B b2§ (VALUE1 and VALUE2 used to pick up the 2 longwords of double value) 
05 037% i IMPLICIT INPUTS: 
07 0976 : scale from callers frame for double scaling 
0978 IMPLICIT OUTPUTS: 
0580 1! NONE 
0581 ! 
F404 ' ROUTINE VALUE: 
058 COMPLETION CODES: 
' 
i 
i 
i 
i 
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BEGIN 


DPAAADAD AMAIA MIU 


COOCooooooooooooeo 


MAP 
STRING : REF BLOCK (8,BYTE); 
Loc 


DODO 00000MME 
SSS VSARren ~sSSeNsak 
PIPIPINIMIPOPNININIM IN INI 30 st st st st hh 


See 


oo 


AL 
STR_LENGTH : WORD; 
BASSCVT_OUT_D_F (VALUE1, 


conversion rtn returns len 
convert this value to string 


PRIPIPIPIPIPIPDPUDIPPYDININIPYNIMONININDPUDIPYPDNININININININININPINIPINININININYDD 2 2 2 0 ts 
WAw 
SBIFAFAN=SSHNO 
Ran = 


' 
0605 0, ' don't specify integer digits 
BONS 0, ! don't specify fraction digits 
060 siete spaces + floating_dec, ! set flags 
0608 STR ENGTH ! return bytes needed for str 
40 0609 STRING (0,0,0,0), ! return string 


; Routine 


41 bytes, 


RETURN; 
END; 


000000006 00 


Routine Base: 


SBASSSCALE) ; 


) 

Oc Al 
000000006 98 
04 AC 

08 AE 

4 

E 

08 AC 

07 


Bc 99:33:83 


! scale factor 
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OFFC 00000 
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Wwroonnooco 
COMO SP NLVO CS 


-BASSCODE + OO1A 


-Sep-1 
=ep-1 


AX-11 B 
BASRTL. 


‘End of BASSNUM1_D 
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FMP 
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Basssschut. _L_R1 
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TRING 
STR_LEN 
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GTH 


VALUE 1 
#7, BASSCVT_OUT_D_F 
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GLOBAL ROUTINE BASSNUMT_L ( 
STRING, 
VALUE) : 
NOVALUE = 


lee 


FUNCTIONAL DESCRIPTION: 


13 
~Sep-19 
° 


nvert eet to string 
ddress of destin 


->o 


This routine takes a longword number and formats it yi yhous 


leading or trailing spaces, and no E format 
and gives that value to the destination string. 


i FORMAL PARAMETERS: 


STRING. wt.dx 


VALUE.rl.v 


i IMPLICIT INPUTS: 


NONE 


' IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 
i COMPLETION CODES: 


i SIDE EFFECTS: 
This routine calls the conversion routine and so ma 


errors or have any 
routine calls STR 


dynamic string space and write lock a string for a short time. 


BEGIN 


pointer to input string descriptor 
value of a double number 


oat TS Tee th ota en eee 


ation descriptor 
ongword value to put in string 


16 significant digits, 


signal any of its 


of its side effects. In particular, the conversion 
routines and so may allocate or deallocate 


MAP 
STRING : REF BLOCK (8,BYTE); 


ae LENGTH 
DOUBLE _VALUE 


WORD 
: VECTOR C2, LONG); 


CVTLD (VALUE, DOUBLE_VALUE (0]); 


BASSCVT_OUT_D_F (DOUBLE_VALUE (0), 


stri s 
STR_LEN 
STRING 


eces + floating_dec, 


0,6.0,0)); 


set s 
return bytes needed 
return string 


conversion rtn returns len 
place to store double 


convert logn to double and 
then use double conversion 
double value to convert 
don't specify integer digits 
Con't seec tty fraction d 
a 


gits 
for str 


Page 
. ( 


$04 


; Routine Size: 


ae Re See 


Gere f 


31 bytes, 


RETURN; 
END; 


ru 
mn 
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000000006 00 


Routine Base: 


i: 


‘End of BASSNUM1_L 
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08 AC 6 8 
04 AC go QO0A 
04 AE 9F 00000 
1 bo 0010 
E 7C 10012 
18 AE 9F 00014 
06 FB 00017 
04 OO001E 


-BASSCODE + 0043 


sea 9:35:83 YOKSATL sme Saasnuni cases 


enssnust L, Save nothing 
VALUE, DOUBLE VALUE 
STR_LENGTH 
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#6, Se sseut OUT _D_F 
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14-Sep-19 BASRTL. BASNUM1 .832;1 
GLOBAL ROUTINE BASSNUM1_G ( ! convert g float to string 
STRING, ' Address of destination descriptor 
VALUE1 : Ist longword of g float value to put in 
VALUE ¢5 : ! 2nd longwrd of g float value for string 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
i " This routine takes a g float number and formats it without 


! 

: leading or trailing spaces, and no E format, 15 significant digits, 
i and gives that value to the destination string. 

: Note that this routine violates the calling standard by accepting 
and passing g floating numbers by value 

! FORMAL PARAMETERS: 

: STRING. wt.dx pointer to input string descriptor 

: VALUE .rg.v value of a double number 

} (VALUE1 and VALUE2 used to pick up the 2 longwords of g float value) 
IMPLICIT INPUTS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

: COMPLETION CODES: 

NONE 

SIDE EFFECTS: 

! This routine calls the conversion routine and so may signal any of its 
: errors or have any of its side effects. In particular, the conversion 
! routine calls STR$ routines and so may allocate or deal locate 
dynamic string space and write lock a string for a short time. 

lee 


BEGIN 


MAP 
STRING : REF BLOCK (8,BYTE); 


LOCAL 
STR_LENGTH : WORD; 


BASSCVT_OUT_G_F (VALUE1, 


conversion rtn returns len 


convert this value to string 
don't specify integer digits 


' 

' 
6° : ! don’t specify fraction digits 
strip spaces + floating_dec, ! set flags 
STR_LENGTH ' return ytes needed for str 
STRING (0,6,0,0)); ! return string 


oo - Orr rr a ee —_ — —_——_$_—___—-- 
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1-008 : 14-Sep-1984 11:55:23 CBASRTL.SRCJBASNUM1 .B32; 1 


; 363 0730 3 
$ 64 8 1 RETURN; 
; 365 732 «1 END; 'End of BASSNUM1_G 
0000 99000 ENTRY BASS$NUM1_G, Save nothing 
5E 04 C2 900¢ SUBL2 #4, SP 
04 AC 0D 0000 PUSHL STRING 
04 AE OF 9008 PUSHAB STR_LENGTH 
7 DD 00008 PUSHL #33 
E 7C 0000D LRQ. = = (SP) 
08 AC 9F O000F PUSHAB VALUE1 
000000006 00 06 FB 2012 ALLS #6, BASSCVT_OUT_G_F 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0062 
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GLOBAL ROUTINE BASSNUM1_H ( l¢ 

STRING, iA 
VALUE1, i 4 
VALUE2, i ; 
VALUE i 
VALUESS : i 4 
NOVALUE = 


+e 
FUNCTIONAL DESCRIPTION: 


t longwor 
d longword of h 
d longword of h float value 
h lLongword of h 


15 

$ep-1984 00:51: AX-11 Bliss-32 V4.0-742 
ety 7 90:22:83 BASRTL.SRC IBASNUMI .B 325 1 
onvert h float to gtring 

ddress of destinat 

5 d l 

n 
r 
t 


on descriptor 
of h float value to put in 
float value for string 


float value 


This routine takes an h eng ye rn and formats it without 


leading or trailing spaces, 


Note that this routine violates the calling s 


and passing h floating numbers by value 
FORMAL PARAMETERS: 


significant digits, 
and gives that value to the destination strin 


Pandard by accepting 


STRING. wt.dx pointer to input string descriptor 
Aey: 


VALUE .rh.v value of an h floatin 
(VALUE1, VALUE2, VALUE3, and VALUE4 used to p 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


k up the 4 Longwords of h float value) 


This routine calls the conversion routine and so may signal any of its 
In particular, the conversion 
routine calls STR$ routines and so may allocate or deal locate 
dynamic string space and write lock a string for a short time. 


errors or have any of its side effects. 


BEGIN 


MAP 
STRING : REF BLOCK (8,BYTE); 


LOCAL 
STR_LENGTH : WORD; 


BASSCVT_OUT_H_F_(VALUE1, 


strip_spaces + floating_dec, 


conversion rtn returns len 


con 
don 


¥ 


ert this value to string 
t specify integer digits 


don't specify fraction digits 


set 


flags 


B 16 
| BASSNUM1 16-Sep-1984 00:51:29 AX-11 Oi fag =32 v4.0-742 Page 14 
| . . 
1- 12-8 08- 1 ope 9:23:83 BASRTL.SRC SBASNUMI 83201 . (7) 
: 626 0790 STR_L ' return bytes needed for str 
; 425 791 STRING aaa 6,0,01); ' return string 
>; 426 86 
: 427 79 RETURN; 
: 428 0794 1 END; 'End of BASSNUM1_H 
0000 00000 -ENTRY BAS$NUM1_H, Save nothing ; 0733 
5E 04 C2 Si SUBL2 #4, SP 3 
04 AC DD 9000 PUSHL STRING + 0791 
04 AE 9F 00008 PUSHAB STR_LENGTH : 0786 
1 Dd 00008 PUSHL #33 : 0791 
—E 7C 00000 RQ -(SP) : 
08 AC 9F OOOOF PUSHAB VALUE1 : 0786 
000000006 00 06 FB 00012 CALLS #6, BASSCVT_OUT_H_F 3: 0791 
04 00019 RET : 0794 


; Routine Size: 26 bytes, | Routine Base: _BASS$CODE + 007C 


rc- 


---s—--- Cl -—- 
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—BASSNUM1 19300-1288 00:21:38 AX-11 Bliss=32 V4.0-742 
1-008 14-Sep-1984 11:55: BASRTL.SRCJBASNUM1 .B32; 1 
3; 430 795 1 GLOBAL ROUTINE BASSNUM1_P ( ! convert packed to + ; 
(3 43) P38 1 STRING, ! Address of destination descriptor 
: 4 ¢ 797 «(1 VALUE) : ! Create string with this value 
3 4 798 1 NOVALUE = 
(3 434 0799 1 
3 «6435 0800 1 I++ 
3 436 0801 1 ! FUNCTIONAL DESCRIPTION: 
3) «437 pB08 : 
3 «438 et 13 This routine takes a packed decimal number and formats it. 
; 439 804 1! with no leading or trailing spaces and no E format, 6 significant 
3 ut Bane : } digits, and gives that value to the destination string. 
3 44 0807 1 ! FORMAL PARAMETERS: 
+ $4 0808 1! 
> 444 0809 1! STRING. wt. dx pointer to se oe string descriptor 
; ree eH : VALUE .rp.dsd desc of a packed decimal number 
: 447 pals 1! IMPLICIT INPUTS: 
; 448 08135 1! 
> 449 0814 1! NONE 
; 450 0815 1! : 
3; 6451 0816 1 ! IMPLICIT OUTPUTS: 
> 45 0817 1! 
; 45 0818 1! NONE 
3 454 0819 1! 
; 455 0820 1 ! ROUTINE VALUE: 
; 456 0821 1 ! COMPLETION CODES: 
; 457 oes 1! 
; 458 0825 1! NONE 
; 459 0824 1! 
; 460 0825 1 ! SIDE EFFECTS: 
; 461 0826 1! : ; ; : 
; 462 0827 1! This routine calls the conv rsion routine and so may signal any of its 
; 463 0828 1! errors or have ony of its side effects. In particular, the conversion 
; 964 th '} routine calls STR$ routines and so may allocate or deal locate 
: 465 0830 1! dynamic string space and write lock a string for a short time. 
; 466 0831 1! 
: 467 tt) 1 !-- 
; 468 0833 1 
; 469 0834 2 BEGIN 
; 470 0835 § 
3 471 0836 MAP 
g 67 0837 STRING : REF BLOCK (8,BYTE], 
; 47 tes VALUE : REF BLOCK (12,BYTE); 
3; 474 0839 
3; «475 0840 LOCAL 
3 om Oaes STR_LENGTH : WORD; ! cvt returns str Llengtht 
: 478 oes BASSCVT_OUT_P_F (. VALUE, ! convert this value to string 
; 479 0844 0. ! don’t specify integer digits 
; 480 Bate ° : ! don't specify fraction digits 
: 481 366 Beetle spaces + floating dec, ! set riage 
; (48 084 STR ENGTH ! return bytes needed for str 
; 48 7k STRING (0,6.0.0)); ! return string 
; 484 849 
; 4485 Bees RETURN; 
; 486 0851 END; ‘End of BASSNUM1_P 


co 
| 


| D 16 
_BASSNUMT 16-Sep-1984 00:51:29 AX#11 Bliss-32 V4.0-742 Page 16 
Beis 1238071382 99:33:33 UBASRTL-SRe BASNUMi .832;1 9° 8) 
| 
| 
| 
0099 00000 «ENTRY BASSNUM1_P, Save nothing ; 0795 
| SE 04 C2 0000 SUBL2 #4, SP : 
04 AC OD 99 0 PUSHL STRING ; 0848 
04 AE 9F 00008 PUSHAB STR_LENGTH ; 0843 
1 DD 00008 PUSHL #33 ; 0848 
E 7C 00000 CLRQ. 0 = (SP) : 
08 AC DD 0000F PUSHL VALUE i 
000000006 00 06 FB 00012 CALLS #6, BASSCVT_OUT_P_F ; 
04 00019 RET ; 0851 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0096 


16 
we ils se tot 00:51:29 YAKeIT BLisg=32 40-742 Page 17 
tbs p82 4 1 !End of module 


PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 176 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


3 COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=L1S$:BASNUM1/0BJ=0BJ$:BASNUM1 MSRC$:BASNUM1/UPDATE=(ENH$:BASNUM1) 
; Size: 176 code + 0 data bytes 


; | Slaseed Time: 00:15.0 
3; Lines/CPU Min: 7673 
3 eee Ae Sag 19889 
; poe | Used: 539 pages 
; Compilation Complete 


is 
| 
| 


oO 
er 
=> 
wn 
= 
—_ 
~< 
aa 
> 


0028 AH-BT13A-SE 


